home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / FILE.BSC < prev    next >
Text File  |  1991-05-11  |  664b  |  19 lines
  1. |getfile
  2. \gv1[]                     \\closes last \gv1[] file
  3. \gb[gettext]
  4.  
  5. |getText
  6. \gv1[%B:dsz.log]           \\ reads first line into %v1
  7. \IV1+^Z[\gb[filename]]     \\ end block with end of file marker.
  8. \sv3[%v1]\LV1[80]          \\ save previous line into %V3
  9. \GB[getText]
  10.  
  11. |filename
  12. \dv3[50]                   \\ delete first 50 characters from %V3
  13. \lv3[12]                   \\ trim file name down to 12 characters.
  14. \II+ ,%V3[\dm2,2[%V2]      \\ looking for blank space to end variable
  15.                            \\ length.
  16. \LV3[%IM]                  \\ trim off blank space portion into %V3
  17. \dm22,22[File name is %v3] \\ display to check
  18.  
  19.